(require :rtmeus (format nil "~A/eus/common/rtmeus.l" (unix:getenv 'RTMEUSDIR)))
;;
(setq *rtm* (instance RTMeus :init "localhost"))
(send *rtm* :load-module (format nil "~A/RTMEus/~A/lib/TestOutState.so" (unix:getenv 'RTMEUSDIR) (unix:getenv "ARCHDIR")) "TestOutStateInit")
(setq hoge (send *rtm* :create-component "TestOutState" "TestOutState0" :execrate 100))
;;(setq hoge (send *rtm* :resolve-component "TestOutState0.rtc" :with-state t))
(send hoge :activate)
(print "start")
(unix:sleep 1)
;;
(do-until-key
 (send hoge :set-state '(:test :float #f(1.0 2.0 3.0)))
 (unix:usleep (* 1000 10))
 (print (send hoge :get-state :test))
 )